home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tb.d64 / proc.change'dev < prev    next >
Text File  |  2007-02-28  |  237b  |  9 lines
  1. 0010 ╨╥╧├ CHANGE'DEV(OLD,NEW) ├╠╧╙┼─
  2. 0020   ─╔═ F$ ╧╞ 20
  3. 0030   F$:="U"+╙╘╥$(OLD)+":M-W"
  4. 0040   F$:+""119""0""2""+├╚╥$(NEW+32)
  5. 0050   F$:+├╚╥$(NEW+64)+"/D-/S15"
  6. 0060   ╧╨┼╬ ╞╔╠┼ 250,F$,╫╥╔╘┼
  7. 0070   ├╠╧╙┼ ╞╔╠┼ 250
  8. 0080 ┼╬─╨╥╧├ CHANGE'DEV
  9.